Sub 차트생성()
    
    Range("B5:E8").Select
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("sample!$B$5:$E$8")
    ActiveChart.ChartArea.Select

End Sub